home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / check3.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.1 KB  |  53 lines
  1. # CVS $Id: check3.tcl,v 1.1 1995/02/03 17:15:21 zibi Exp $
  2. # Togglebutton/checkbox check
  3. #   Callback outputs widgets toggles are set TRUE on
  4. # @(#) check3.tcl 11.3 95/01/31 
  5.  
  6. global tog1 tog2 tog3 checkbox count
  7.  
  8. set count 1
  9.  
  10. proc setValueCB {cbs} {
  11. global tog1 tog2 tog3 checkbox count
  12.  
  13. #    VtSetValues $checkbox -value [set tog$count]
  14.     VtSetValues $checkbox -valueList [list $tog2 $tog3]
  15.     incr count
  16.     if {$count == 4} {
  17.         set count 1
  18.     }
  19. }
  20.  
  21. proc checkCB {cbs} {
  22. echo In checkCB
  23. echo Selected: [keylget cbs selectedWidgetList]
  24. }
  25.  
  26. set app [VtOpen "testcheckbox"]
  27.  
  28. set fn [VtStartForm $app.form -title "Check Box Test" ]
  29.  
  30. set checkbox [VtCheckBox $fn.checkbox -borderWidth 2 -callback checkCB]
  31. set tog1 [VtToggleButton $checkbox.tog1]
  32. set tog2 [VtToggleButton $checkbox.tog2]
  33. set tog3 [VtToggleButton $checkbox.tog3]
  34.  
  35.  
  36.  
  37. VtPushButton $fn.SetValue -callback setValueCB \
  38.     -leftSide FORM\
  39.     -rightSide FORM\
  40.     -topOffset 10\
  41.     -leftOffset 5 \
  42.     -rightOffset 5\
  43.     -CHARM_topOffset 1\
  44.     -CHARM_leftOffset 2\
  45.     -CHARM_rightOffset 2
  46.  
  47. VtPushButton $fn.quit -label Quit -callback { VtClose ;exit 0 ;#}
  48.  
  49.  
  50. VtShow $fn
  51. VtMainLoop
  52.  
  53.